'InStrжַǷַַָ

Sub Test()'InStrжϱǲwps 
    
    MyPath = "C:\Mysoft\WPS\WPS Office\11.8.2.8053\office6\"
    
    If InStr(1, MyPath, "WPS") > 0 Then 'ַָ
        MsgBox "WPS"
    Else
        MsgBox "WPS"
    End If
    
    'жϱǲwps
    
    
End Sub
 
'ֻжʱExcelWPS

Sub test()
    aaa = "ʡϾнˮŴ34"
   If InStr(aaa, "") <> 0 Then
      MsgBox ""
   Else
    MsgBox ""
End If
 
End Sub
